home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / datacomm / falcon100-2.lzh / fbatch < prev    next >
AmigaDOS Script File  |  1991-01-29  |  3KB  |  85 lines
  1. .key DOWHAT,THENQUIT/s
  2. .bra [
  3. .ket ]
  4.  
  5. ; Falcon can be run straight from the CLI (ie. "run falcon").  However,
  6. ; if you want to use net/echomail, etc., you'll need to use this file.
  7. ; Read docs/fbatch.doc for information on this file and the assigns that
  8. ; must be made before it is executed.
  9.  
  10.  
  11. if "[DOWHAT]" eq ""
  12.     set dowhat "wait"
  13. else
  14.     set dowhat "[DOWHAT]"
  15. endif
  16.  
  17. if not exists LOG:log.bbs
  18.     echo >LOG:log.bbs "" noline  ; insure log exists or CBMENV ">>" won't work
  19. endif
  20.  
  21.  
  22. lab LOOPSTART
  23.     if "$dowhat" eq "wait"
  24.         Falcon
  25.  
  26.         ; next three lines are an alternative I use that leaves my phone open
  27. ;        echo >>LOG:log.bbs "  $(date)  Waiting for event *"mail*""  ; only ARP!
  28. ;        wait until 08:30
  29. ;        set fret "mail"
  30.  
  31.         echo >>LOG:log.bbs                      ; break in log
  32.     else
  33.         set fret "$dowhat"
  34.         set dowhat "wait"
  35.     endif
  36.  
  37.     if "$fret" eq "justcall"
  38.         TrapDoor CONFIG trapdoor.cfg            ; poll boss for mail
  39.     endif
  40.     if "$fret" eq "export"
  41.         FExport >NIL:                           ; export messages
  42.         echo >>LOG:log.bbs                      ; break in log
  43.     endif
  44.     if "$fret" eq "mail"
  45.         FExport >NIL:                           ; export messages
  46.         echo >>LOG:log.bbs                      ; break in log
  47.         set fret "call"                         ; continue on to call
  48.     endif
  49.     if "$fret" eq "call"
  50.         TrapDoor CONFIG trapdoor.cfg            ; poll boss for mail
  51.         set fret "import"                       ; continue on to import
  52.     endif
  53.     if "$fret" eq "import"
  54.         delete >NIL: MAIL:bak/#?
  55.         copy >NIL: MAILIN: MAIL:bak             ; back up inbound dir first
  56.         FImport >NIL:                           ; import messages
  57.         echo >>LOG:log.bbs                      ; break in log
  58.     endif
  59.     if "$fret" eq "newlog"
  60.         ; This version makes a file "log.<day>" where day is "Sun,Mon...Sat".
  61.         ; However, you can only use it with the ARP shell pipes enabled
  62.         copy LOG:log.bbs "LOGBACK:log.$(echo "$(echo "$(date)" first 1 len 3)")" clone
  63.  
  64.         ; This is a simpler alternative for non-pipe systems
  65. ;        copy LOG:log.bbs LOGBACK:log.bak clone
  66.  
  67.         echo >LOG:log.bbs "" noline             ; restart log (for CBMENV ">>")
  68.         wait 60                                 ; make sure falcon event ends
  69.     endif
  70.     if "$fret" eq "quit"
  71.         skip END
  72.     endif
  73.     if "$fret" eq "error"
  74.         skip END
  75.     endif
  76.     if "[THENQUIT]" not eq ""
  77.         skip END
  78.     endif
  79. skip LOOPSTART back
  80.  
  81.  
  82. lab END
  83. ; stick any cleanup you may need here
  84. quit
  85.